home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / mastapp.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  3.0 KB  |  69 lines
  1. //---------------------------------------------------------------------------
  2. // Borland C++Builder
  3. // Copyright (c) 1987, 1998 Borland International Inc.  All Rights Reserved.
  4. //---------------------------------------------------------------------------
  5.  
  6. //---------------------------------------------------------------------------
  7. #include <vcl.h>
  8. #pragma hdrstop
  9. //---------------------------------------------------------------------------
  10. USEFILE("readme.txt");
  11. USEDATAMODULE("Datamod.cpp", MastData);
  12. USEFORM("about.cpp", AboutBox);
  13. USEFORM("brcstord.cpp", BrCustOrdForm);
  14. USEFORM("brparts.cpp", BrPartsForm);
  15. USEFORM("custrpt.cpp", CustomerByInvoiceReport);
  16. USEFORM("edcust.cpp", EdCustForm);
  17. USEFORM("edorders.cpp", EdOrderForm);
  18. USEFORM("edparts.cpp", EdPartsForm);
  19. USEFORM("invcrpt.cpp", InvoiceByOrderNoReport);
  20. USEFORM("main.cpp", MainForm);
  21. USEFORM("orderrpt.cpp", OrdersByDateReport);
  22. USEFORM("pickdate.cpp", BrDateForm);
  23. USEFORM("pickinvc.cpp", PickOrderNoDlg);
  24. USEFORM("pickrep.cpp", PickRpt);
  25. USEFORM("qrycust.cpp", QueryCustDlg);
  26. USEFORM("splash.cpp", SplashForm);
  27. USEFORM("srchdlg.cpp", SearchDlg);
  28. //---------------------------------------------------------------------------
  29. #include "splash.h"
  30.  
  31. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  32. {
  33.      try
  34.      {
  35.        SplashForm = new TSplashForm(Application);
  36.        SplashForm->Show();
  37.        SplashForm->Update();
  38.  
  39.        Application->Initialize();
  40.        Application->Title = "Marine Adventures Order Entry";
  41.        Application->HelpFile = "Mastapp.hlp";
  42.        Application->CreateForm(__classid(TMainForm), &MainForm);
  43.        Application->CreateForm(__classid(TMastData), &MastData);
  44.        Application->CreateForm(__classid(TAboutBox), &AboutBox);
  45.        Application->CreateForm(__classid(TQueryCustDlg), &QueryCustDlg);
  46.        Application->CreateForm(__classid(TBrPartsForm), &BrPartsForm);
  47.        Application->CreateForm(__classid(TBrCustOrdForm), &BrCustOrdForm);
  48.        Application->CreateForm(__classid(TEdCustForm), &EdCustForm);
  49.        Application->CreateForm(__classid(TBrDateForm), &BrDateForm);
  50.        Application->CreateForm(__classid(TSearchDlg), &SearchDlg);
  51.        Application->CreateForm(__classid(TEdPartsForm), &EdPartsForm);
  52.        Application->CreateForm(__classid(TEdOrderForm), &EdOrderForm);
  53.        Application->CreateForm(__classid(TPickRpt), &PickRpt);
  54.        Application->CreateForm(__classid(TPickOrderNoDlg), &PickOrderNoDlg);
  55.        Application->CreateForm(__classid(TInvoiceByOrderNoReport), &InvoiceByOrderNoReport);
  56.        Application->CreateForm(__classid(TCustomerByInvoiceReport), &CustomerByInvoiceReport);
  57.        Application->CreateForm(__classid(TOrdersByDateReport), &OrdersByDateReport);
  58.        SplashForm->Hide();
  59.        SplashForm->Close();
  60.        Application->Run();
  61.    }
  62.    catch (Exception &exception)
  63.    {
  64.        Application->ShowException(&exception);
  65.    }
  66.        return 0;
  67. }
  68. //---------------------------------------------------------------------------
  69.